home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
422mods.zip
/
CONAN13.422
< prev
next >
Wrap
Text File
|
1993-04-12
|
3KB
|
63 lines
1CONAN13 3- 5Record in the sysoplog when someone adds to BBSList
Conan #1 @7304
Thursday, April 8, 1993 4:35 pm [EST]
┌────────────────────────────────────────────────────────────────────────────┐
│ Mod Name : CONAN13 Mod Author: Conan 1@473 ComLink │
│ Difficulty : ███▒▒▒▒▒▒▒ 1@7304 IceNet │
│ WWIV Version : 4.22 1@7300 WWIVWeb │
│ Mod Date : 04/08/93 1@7307 WWIVNet │
│ Files Affected: MISCCMD.C 1@17325 WWIVLink │
│ Description : Record in sysoplog when user adds to the BBS list │
└────────────────────────────────────────────────────────────────────────────┘
This is a very simple two line mod that I wanted to put in, because I've had
many lowlife users who go into the bbslist and add numbers like 911-9023 or
976 numbers or just basically corrupt the BBSList ...so here's a basic mod
to put in that writes to the sysoplog.
+ add
= don't change
Open up MISCCMD.C and search down to void bbslist(void)
and make the following changes...
= nl();
= prt(5,get_string(499));
= if (yn()) {
= sprintf(s1,"%sBBSLIST.MSG",syscfg.gfilesdir);
= f=open(s1,O_RDWR | O_CREAT | O_BINARY, S_IREAD | S_IWRITE);
= if (filelength(f)) {
= lseek(f,-1L,SEEK_END);
= read(f,((void *)&ch1),1);
= if (ch1==26)
= lseek(f,-1L,SEEK_END);
+ sprintf(s1,"1Added 7%-30s 1to the BBS List", name);
+ sysoplog(s1);
= }
= write(f,(void *)s,strlen(s));
= close(f);
= nl();
And that's all there is to it! Comments, problems, suggestions? You can call
my board, Perfect World BBS (703)255-6606 or E-Mail me on any of the
following networks...:
1@473 ComLink
1@7304 IceNet
1@7300 WWIVWeb
1@7307 WWIVNet
1@17325 WWIVLink
1C7onan
7╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐ 5IceNet @7304 3≡ 1WWIVNet @7307
7║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║ 7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐ 7WWIVLink @17325 3≡ 6ComLink @473
7╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨ 7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘ 17o3-255-66o6 3≡ 2WWIVWeb @73000
27╓7┐7╓7┐7╓7─┐7╓7┐7╓7┐7╓7┐7┌╥7┐ 7╥ 7┬7╓7┐7╓7─┐7╖ 7╥7┐ 7╓7┐7╓7┐7╓7┐ 5IceNet @7304 3≡ 1WWIVNet @7307
37║7┘7╟0 7╟7┬┘7╟0 7╟0 7║0 7 ║ 7║╥7│7║7│7╟7┬┘7║ 7║7│ 7╟7┤7╟7┤7╙7┐ 7WWIVLink @17325 3≡ 6ComLink @473
47╨0 7╙7┘7╨7└ 7╨0 7╙7┘7╙7┘7 ╨ 7╙╨7┘7╙7┘7╨7└ 7╙7┘7╨7┘ 7╙7┘7╙7┘7╙7┘ 17o3-255-66o6 3≡ 2WWIVWeb @73000
5
6